home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / c / modex104.zip / UTILS.BI < prev    next >
Text File  |  1993-05-14  |  2KB  |  52 lines
  1.  
  2.     ' Misc Constants
  3.  
  4. CONST True = -1, False = 0, nil = 0
  5.  
  6.     ' Keyboard Codes: Extended
  7.  
  8. CONST KyF1 = &H3B00, KyF2 = &H3C00, KyF3 = &H3D00, KyF4 = &H3E00, KyF5 = &H3F00
  9. CONST KyF6 = &H4000, KyF7 = &H4100, KyF8 = &H4200, KyF9 = &H4300, KyF10 = &H4400
  10.  
  11. CONST KyUp = &H4800, KyLeft = &H4B00, KyRight = &H4D00, KyDown = &H5000
  12. CONST KySLeft = &HCB00, KySRight = &HCD00, KySUp = &HC800, KySDown = &HD000
  13.  
  14. CONST KyHome = &H4700, KyPgUp = &H4900, KyEnd = &H4F00, KyPgDn = &H5100
  15. CONST KySHome = &HC700, KySPgUp = &HC900, KySEnd = &HCF00, KySPgDn = &HD100
  16.  
  17. CONST KyIns = &H5200, KyDel = &H5300, KyRvsTab = &H8F00
  18. CONST KySIns = &HC200, KySDel = &HC300
  19.  
  20. CONST KyAltA = &H1E00, KyAltB = &H3000, KyAltC = &H2E00, KyAltD = &H2000
  21. CONST KyAltE = &H1200, KyAltF = &H2100, KyAltG = &H2200, KyAltH = &H2300
  22. CONST KyAltI = &H1700, KyAltJ = &H2400, KyAltK = &H2500, KyAltL = &H2600
  23. CONST KyAltM = &H3200, KyAltN = &H3100, KyAltO = &H1800, KyAltP = &H1900
  24. CONST KyAltQ = &H1000, KyAltR = &H1300, KyAltS = &H1F00, KyAltT = &H1400
  25. CONST KyAltU = &H1600, KyAltV = &H2F00, KyAltW = &H1100, KyAltX = &H2D00
  26. CONST KyAltY = &H1500, KyAltZ = &H2C00
  27.  
  28.     ' Keyboard Codes: Ascii
  29.  
  30. CONST KyBS = 8, KyTab = 9, KyCR = 13, KyESC = &H1B, KyClr = &H7F
  31. CONST KyPlus = 45, KyMinus = 43
  32.  
  33.     ' Color Constants
  34.  
  35. CONST c.BLACK = 0, c.BLUE = 1, c.GREEN = 2, c.CYAN = 3
  36. CONST c.RED = 4, c.PURPLE = 5, c.BROWN = 6, c.WHITE = 7
  37. CONST c.GREY = 8, c.bBLUE = 9, c.bGREEN = 10, c.bCYAN = 11
  38. CONST c.bRED = 12, c.bPURPLE = 13, c.YELLOW = 14, c.bWHITE = 15
  39. CONST c.BRIGHT = 8
  40.  
  41.     ' From UTILS.ASM
  42.  
  43. DECLARE SUB DOS.PRINT ALIAS "DOS_PRINT" (Text$)
  44. DECLARE SUB DOS.PRINTS ALIAS "DOS_PRINTS" (Text$)
  45. DECLARE SUB SET.VIDEO.MODE ALIAS "SET_VIDEO_MODE" (BYVAL Mode%)
  46. DECLARE FUNCTION SCAN.KEYBOARD% ALIAS "SCAN_KEYBOARD"
  47. DECLARE FUNCTION RANDOM.INT ALIAS "RANDOM_INT" (BYVAL MaxInt%)
  48. DECLARE SUB INIT.RANDOM ALIAS "INIT_RANDOM"
  49. DECLARE FUNCTION TIMER.COUNT& ALIAS "TIMER_COUNT"
  50. DECLARE FUNCTION INT.SQR ALIAS "INT_SQR" (BYVAL X%, BYVAL Round%)
  51.  
  52.